	PRO MOVIE,dir,Nproc,Nt
; Nt tiempo final de la pelicula (numero)
for i=0,Nt-1 do begin
time='000'+string(i,format='(i1)')
if(i gt 9)then time='00'+string(i,format='(i2)')
profiles,dir,Nproc,time
endfor
end
